SetGfxDriver 1:Graphics 1024,768,8,2:SeedRnd MilliSecs() :SetBuffer FrontBuffer() 
Global entr,timer,nums,numz,numt,numx,numw,lz,wflag,lw,z,z1,errorflag,frames,iterated,citr,zw,lplen,lptr,lframes,literated,yadro,lyadro,prostir
yadro=256: prostir=4096
;timer = CreateTimer(100) :nums = CreateBank(prostir+2)
For i = 0 To prostir-1 
t = Rand(0,yadro-1);:PokeByte nums,i, t
Next 

While Not KeyHit(1) 
ClsColor 0,0,0
Cls

For i1 = 0 To 96
 For i = 0 To 48
t = Rand(0,yadro-1)
    If (t>((yadro Shr 1)-1) )Then Color 0,0,255 Else Color 255,0,0
    Text 9+18+i*20,18+i1*7,t,False ,False 
  ;      If (i1*16+i=z) Color 255,0,0: Rect 9+18+i*30,18+i1*7,11,7,0
  ;      If (i1*16+i=z1) Color 255,255,0: Rect 9+18+i*30,18+i1*7,11,7,0
  ;  If (t>((yadro Shr 1)-1) )Then Color 0,255,0 Else Color 0,t,0
  ;  Plot i1+2,i+2
       cnt=cnt+1


Next
Next

Flip 
;If KeyHit(57) > 0 
WaitMouse()
Wend 